<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>5265</cardID>
<listID>3003</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>on resumeStackdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"end resumeStackon openCardSend colorMe to this cardpass openCardunlock screenend openCardon closeCardglobal lastCard, lastBookput "Help" into lastBookput the number of this card into lastCardlock screenpass closeCardDisposeVideo -- in case one's already thereend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon doMenu menuItemif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainelse if menuItem is "Gallery" thenWTIgalleryelse if menuItem is "Explorer" thenWTIexploreelse if menuItem is "Credits" thenWTIcreditselse if menuItem is "Encyclopedia" thenWTIencyclelse if menuItem is "Languages" thengo to card 1 of stack "Guinness:mac:language samples" in a new windowelse if menuItem is "About Hypercard..." thenWTIcreditsexit doMenuelse if menuItem is "Quit Encyclopedia" thendoMenu "Quit HyperCard"exit doMenuend ifpass doMenuend doMenuon WTIcreditsgo to card 1 of stack "Guinness:Mac:Credits"end WTIcreditson closeStackAddColor removepass closeStackend closeStackon openStackglobal lastContextAddColor installif lastContext is empty thenput "Encyclopedia" into lastContextend ifset lockScreen to truedisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"pass openStackset lockScreen to falseend openStackon DisposeVideoglobal movieNameif movieName is not empty then-- put windows() into xListif offset( movieName, windows() ) = 0 thenelseclose window movieNameend ifput empty into movieNameend ifend DisposeVideoon PlayMovie movieSName, pPathglobal movieNameset cursor to 4DisposeVideo -- in case one's already thereput "Guinness:" & pPath & movieSName into MyMoovie-- put MyMoovie--QTMovie OpenMovie, windoid, MyMoovie, deepest, dontPaintWhite, closeOnFinishQTMovie OpenMovie, windoid, MyMoovie, deepest,,,,,,loopget the result-- put it into movieID-- put movieIDif "Error" is in it then-- put the resultanswer "Couldn't Play That Movie"exit PlayMovieelseput movieSName into movieNameend ifend PlayMovieon WTInextgo to nextend WTInexton WTIpreviousgo to previousend WTIpreviouson WTIprintTextglobal lastContextprint card field Helpprint card field lastContextend WTIprintTexton WTImaingo to card 1 of stack "Guinness:Mac:Main"end WTImainon WTIhelpgo to card 1 of stack "Guinness:Mac:Help"end WTIhelpon WTIquitdoMenu "Quit HyperCard"end WTIquiton WTIexplorego to card 1 of stack "Guinness:Mac:Explorer"end WTIexploreon WTIgallerygo to card 1 of stack "Guinness:Mac:Gallery"end WTIgalleryon WTIencyclgo to card 1 of stack "Guinness:Mac:Encyclopedia"end WTIencyclon WTIgoback-- global lastCard, lastBook-- go to card lastCard of lastBookgo to recent cardend WTIgobackon WTIgotopage CardN-- go to card CardNanswer "go to card # " & CardNend WTIgotopageon toggleContext bnameglobal lastContext-- put bname && lastContexthide card field lastContextshow card field bnameput bname into lastContextend toggleContext</script>
